|
VB 加油站
A 入门技巧
B API
C 用户界面
D 网络
E 控件
F 文件系统
H 多媒体
I 数据库
J 程序应用
K 外设
Z 其他
下载区域
技术文档
原创空间
写留言
看留言
VB讨论
友情连接
回到首页
Win加油站
E-Mail
| |
在VB5中播放MP3文件
吴炯 微电脑世界 19980608
MP3自问世以来,因其声音还原好,压缩比率高而深受欢迎。目前,市面上有很多种MP3播放器供用户选择使用。但是,怎样在自己的应用程序中播放MP3文件呢?最近,本人在网上下载了一个播放MP3文件的ActiveX控件——mp3play.ocx,该控件可在VB5.0、Delphi3.0及VC5.0中使用。下面将使用该控件在VB5.0中播放MP3文件的方法介绍给大家。
先启动VB5.0,添加一个新窗体到工程中。单击"工程"*"部件"菜单,将下载的mp3play.ocx控件添加到VB中。此时,在工具箱中将可以看到新增加了一个蓝色小喇叭图标,这就是mp3play.ocx控件。
单击工具箱中的MP3控件,将其添加到窗体中,名称设为MP3Play,属性Visible设为False。
在窗体中添加"播放"命令按钮,其名称为btn_command1,属性Caption为"播放",在其Click事件中填写以下代码:
Private Sub btn_command1_Click()
MP3Play.Open("c:\pop_music\心太软.mp3","") //指定所要播放MP3文件所在的位置为C盘pop_music目录里
MP3Play.play
End Sub
在窗体中添加"停止"命令按钮,其名称为btn_command2,属性Caption为"停止",在其Click事件中填写以下代码:
Private Sub btn_command2_Click()
MP3Play.Stop
End Sub
执行该程序,单击"播放"按钮,将播放您指定的MP3音乐。若要停止,单击"停止"按钮即可。
该控件可在http://www.dialog-medien.de下载。
(作者地址:湖南省委办公厅机要局技术室,410011;收稿日期:1998.05)
|
